www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_JiamengEdit.asp
<!--#include file="conn.asp"--> <!--#include file="chkuser.asp"--> <!--#include file="FCKeditor/fckeditor.asp" --> <!--#include file="Function/Function_Jiameng.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <meta name="copyright" content="Copyright 2008 dananshan.com" /> <meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" /> <meta name="Keywords" content="闪电文章管理系统文章管理系统" /> <meta name="Description" content="闪电文章管理系统文章管理系统" /> <title>添加加盟信息</title> <link href="style.css" rel="stylesheet" type="text/css" /> <script src="../js/check.js" type="text/javascript"></script> </head> <body> <% '========判断是否具有管理权限 if Instr(session("AdminPower"),"|32,")=0 then response.write ("<font color='red')>你不具有该管理模块的操作权限,请返回!</font>") response.end else if Request.QueryString ("Form")="Edit" then call Edit_Content() else call Add_Content() end if end if %> </body> </html> <% Function Add_Content() response.Write "<form method='post' action='?action=add'>" response.Write "<div id='frame_Toolbar' class='toolbarBg'>" response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>" response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>" response.Write "<div id='guide' class='light_orange'>请填写加盟信息!</div>" response.Write "<div class='pageInfo right light_gray'></div>" response.Write "</div>" response.Write "<table class='cTable_2 table'>" response.Write "<tr class='cTitle toolbarBg'>" response.Write "<td width='15%'><div>添加加盟信息</div></td>" response.Write "<td></td></tr>" response.Write "<tr>" response.Write "<td class='tRight'>方案名称:</td>" response.Write "<td><input name='JiamengName' type='text' size='40' onBlur='check_JiamengTitle(this.value);'>" response.Write "<input name='IsShow' type='checkbox' value='checkbox' checked>发布 <span id='span_JiamengName'>请填写信息标题</span></td></tr>" response.Write "<tr>" response.Write "<td class='tRight'>信息来源:</td>" response.Write "<td><input name='Source' type='text' size='40'></td></tr>" response.Write "<tr>" response.Write "<td class='tRight'>显示顺序:</td>" response.Write "<td><input name='Sequence' type='text' size='40' onBlur='check_JiamengSequence(this.value);'> <span id='span_Sequence'>填写显示顺序(为整数)</span></td></tr>" response.Write "<tr>" response.Write "<td valign='top' class='tRight'>信息内容:</td>" response.Write "<td>" Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath="fckeditor/" oFCKeditor.ToolbarSet="Idea" oFCKeditor.Width="550" oFCKeditor.Height="350" oFCKeditor.Value=content oFCKeditor.Create "Content" response.Write "</td>" response.Write "</tr>" response.Write "</table>" response.Write "<div id='cEndToolbar' class='toolbarBg'>" response.Write "<div class='caButCase'>" response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认添加' disabled='disabled' class='button'> " response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>" response.Write "</div>" response.Write "</div>" response.Write "</form>" End Function Function Edit_Content() ID=trim(request("ID")) if ID<>"" and IsNumeric(ID) then sql="select * from Idea_Jiameng where ID="&ID set rs=idea.exec(sql,1) do while not rs.eof response.Write "<form method='post' action='?Action=update&ID="&ID&"'>" response.Write "<div id='frame_Toolbar' class='toolbarBg'>" response.Write "<a href='javascript:self.history.back();' class='icoBtn_ct'><span class='btnIco btnBack'></span><span class='btnTxt'>返回</span></a>" response.Write "<a href='javascript:self.location.reload();' class='icoBtn_ct'><span class='btnIco btnReload'></span><span class='btnTxt'>刷新</span></a><span class='split ftSplit' ></span>" response.Write "<div id='guide' class='light_orange'>请填写加盟信息!</div>" response.Write "<div class='pageInfo right light_gray'></div>" response.Write "</div>" response.Write "<table class='cTable_2 table'>" response.Write "<tr class='cTitle toolbarBg'>" response.Write "<td width='15%'><div>编辑加盟信息</div></td>" response.Write "<td></td></tr>" response.Write "<tr>" response.Write "<td class='tRight'>信息名称:</td>" response.Write "<td><input name='JiamengName' type='text' size='40' value='"&rs("JiamengName")&"' onBlur='check_JiamengTitle(this.value);'>" if rs("IsShow")=true then response.Write "<input name='IsShow' type='checkbox' value='checkbox' checked>发布" else response.Write "<input name='IsShow' type='checkbox' value='checkbox'>发布" end if response.Write " <span id='span_JiamengName'>请填写信息标题</span> </td></tr>" response.Write "<tr>" response.Write "<td class='tRight'>信息来源:</td>" response.Write "<td><input name='Source' type='text' size='40' value='"&rs("Source")&"'></td>" response.Write "</tr>" response.Write "<tr>" response.Write "<td class='tRight'>显示顺序:</td>" response.Write "<td><input name='Sequence' type='text' size='40' value='"&rs("Sequence")&"' onBlur='check_JiamengSequence(this.value);'> <span id='span_Sequence'>填写显示顺序(为整数)</span></td></tr>" response.Write "<tr>" response.Write "<td valign='top' class='tRight'>信息内容:</td>" response.Write "<td>" Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath="fckeditor/" oFCKeditor.ToolbarSet="Idea" oFCKeditor.Width="550" oFCKeditor.Height="350" oFCKeditor.Value=rs("content") oFCKeditor.Create "Content" response.Write "</td>" response.Write "</tr>" response.Write "</table>" response.Write "<div id='cEndToolbar' class='toolbarBg'>" response.Write "<div class='caButCase'>" response.Write "<input type='submit' name='Btn_OK' id='Btn_OK' value='确认添加' class='button'> " response.Write "<input type='reset' name='Submit2' value='清空重填' class='button'>" response.Write "</div>" response.Write "</div>" response.Write "</form>" rs.movenext loop rs.close set rs=nothing end if End Function %>